5 REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H> <CTRL-M> *** PROTEIN SYNTHESIS LESSON ***<CTRL-M> WRITTEN BY DAVID CALABRESE<CTRL-M> COPYRIGHT 1984 BY THE SOFTWARE<CTRL-M> ZONE<CTRL-J>
10 REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H> <CTRL-M>*** DEFINE VARIABLES<CTRL-J>
20 TEXT : HOME : NORMAL : FOR I = 1 TO 40:C0$ = C0$ +":": NEXT :C0$ = C0$ + CHR$(8):D$ = CHR$(4):CL% = 948:KY% = 962:HI% = 772:TE% = 781:UN% = 25345:X% = 768:Y% = 191: DEF FN C(QZ) = INT(QZ/2) - INT( LEN(A$)/2)
30 REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H> <CTRL-M>*** TITLE DISPLAY<CTRL-J>
360 PRINT " DNA, or deoxyribonucleic": PRINT "acid, carries all of the": PRINT "necessary information for"
370 PRINT "protein synthesis.": PRINT : PRINT " As this program covers": PRINT "only protein synthesis, a": PRINT "basic knowledge of the"
380 PRINT "structure of DNA is assumed.": PRINT : PRINT " THINGS YOU SHOULD KNOW"
390 HCOLOR= 1:Y = PEEK(769) -10: HPLOT 9,Y TO 173,Y TO 173,Y +10 TO 9,Y +10 TO 9,Y: PRINT
400 PRINT "-- DNA is in the shape of a": PRINT "double helix (that >).";:Y = PEEK(769) +3: HCOLOR= 3: HPLOT 7 *18,Y TO 7 *19 +3,Y
410 PRINT : PRINT : PRINT "-- The 'rope' parts of the": PRINT "ladder-like structure are": PRINT "long chains of phosphate ": PRINT "units joined by deoxyribose,": PRINT "a five carbon sugar."
430 CALL UN%: POKE 769,0: POKE 768,30: PRINT "DNA STRAND": POKE 769,5: PRINT " THINGS YOU SHOULD KNOW":Y = PEEK(769) -10: HPLOT 10,Y TO 172,Y TO 172,Y +10 TO 10,Y +10 TO 10,Y: POKE 768, FN C(26): POKE 769,15: PRINT A$: PRINT
440 PRINT "-- The 'rungs' consist of": PRINT "two bases, one connected to": PRINT "each 'rope' and bonded in": PRINT "the middle with hydrogen."
450 PRINT : PRINT "-- Each three-part unit of": PRINT "phosphate, deoxyribose and": PRINT "attached base is called a": PRINT "nucleotide."
460 PRINT : PRINT "-- There are four types of": PRINT "bases in DNA. Two organic": PRINT "bases are known as purines:": PRINT "adenine or guanine. The": PRINT "others are pyrimidines:": PRINT "thymine or cytosine. They"
480 CALL UN%: POKE 769,0: POKE 768,30: PRINT "DNA STRAND": POKE 769,5: PRINT " THINGS YOU SHOULD KNOW":Y = PEEK(769) -10: HPLOT 10,Y TO 172,Y TO 172,Y +10 TO 10,Y +10 TO 10,Y: POKE 768, FN C(26): POKE 769,15: PRINT A$: PRINT
490 PRINT : PRINT "-- Groups of three": PRINT "nucleotides make up a": PRINT "triplet condon. The letters": PRINT "of the three nucleotides": PRINT "form a code word which": PRINT "codes an amino acid."
500 PRINT : PRINT " With this understanding": PRINT "of DNA, you can learn how": PRINT "protein is synthesized.": PRINT
510 IF BVG% < >1 THEN 530
520 PRINT " "F0$", I KNOW you passed": PRINT "the test on this with no": PRINT "problem, so here we go...": CALL KY%: GOTO 600
530 Y = PEEK(769): PRINT " Do you know all of the": PRINT "preceeding information?": PRINT "(Y/N) ";: POKE -16368,0:
540 GET A$: CALL CL%: IF A$ < >"Y" AND A$ < >"N" THEN 540
550 IF A$ = "Y" THEN PRINT "Yes.": GOTO 600
560 PRINT "No.": PRINT : PRINT " Would you like to review": PRINT "the THINGS YOU SHOULD KNOW": PRINT "section? (Y/N) ";
570 GET A$: CALL CL%: IF A$ < >"Y" AND A$ < >"N" THEN 570
590 PRINT "No.": FOR I = 1 TO 200: NEXT : CALL TE%: POKE -16303,0: HOME : PRINT " SORRY, BUT YOU MUST KNOW THAT INFORMATION TO LEARN ABOUT PROTEIN SYNTHESIS.": PRINT : END
600 REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H> <CTRL-M>*** BEGIN LESSON<CTRL-J>
620 PRINT " The DNA carries the information neededto construct a protein from a string of amino acids.": PRINT : PRINT " Protein is synthesized out in the"
630 PRINT "cytoplasm of a cell at a ribosome, but": PRINT "the DNA is confined to the nucleus."
660 HGR : POKE -16302,0: POKE 768,0: POKE 769,30: PRINT " To get the code to the ribosome, the DNA copies its information into messanger ribonucleic aic (mRNA). This process is know as transcription."
670 PRINT : PRINT " There are a few differences between RNA and DNA...":A$ = "Press any key": POKE 769,23 *8: POKE 768, FN C(40): PRINT A$: CALL KY%
680 A$ = "DNA1": GOSUB 1000
690 POKE 768,0: POKE 769,25: PRINT " To the right is a DNA": PRINT "strand. Notice that T"
700 PRINT "(for thymine) joins only": PRINT "with A (adenine) and G": PRINT "(guanine) joins only": PRINT "with C (cytosine)."
